home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / QUES.DXR / 00140.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  912 b   |  44 lines
  1. on exitFrame
  2.   global cards, whereto
  3.   robo = 0
  4.   if whereto = "hat" then
  5.     repeat with i = 1 to 4
  6.       if item i of cards = "0" then
  7.         robo = 1
  8.       end if
  9.     end repeat
  10.     if robo = "0" then
  11.       go(1, the moviePath & "enter4.dxr")
  12.     else
  13.       sprite(64).visible = 0
  14.       go("regular")
  15.     end if
  16.   else
  17.     if whereto = "poz" then
  18.       repeat with i = 1 to 6
  19.         if item i of cards = "0" then
  20.           robo = 1
  21.         end if
  22.       end repeat
  23.       if robo = "0" then
  24.         go(1, the moviePath & "enter5.dxr")
  25.       else
  26.         sprite(64).visible = 0
  27.         go("regular")
  28.       end if
  29.     else
  30.       repeat with i = 1 to 8
  31.         if item i of cards = "0" then
  32.           robo = 1
  33.         end if
  34.       end repeat
  35.       if robo = "0" then
  36.         go(1, the moviePath & "enter6.dxr")
  37.       else
  38.         sprite(64).visible = 0
  39.         go("regular")
  40.       end if
  41.     end if
  42.   end if
  43. end
  44.